home *** CD-ROM | disk | FTP | other *** search
/ JCSM Shareware Collection 1993 November / JCSM Shareware Collection - 1993-11.iso / cl440 / sezfootj.lzh / FBALL.BAT < prev    next >
DOS Batch File  |  1991-08-19  |  4KB  |  179 lines
  1. @echo off
  2. CLS
  3. echo 
  4. BALL /T5
  5. :logo
  6. MENU2 /K PRSBQ /F
  7. if errorlevel 255 goto quit
  8. if errorlevel 5 goto quit
  9. if errorlevel 4 goto stats
  10. if errorlevel 3 goto season
  11. if errorlevel 2 goto fball
  12. if errorlevel 1 goto play
  13. :season
  14. SEASON
  15. pause
  16. goto logo
  17. :fball
  18. EGAFB
  19. goto logo
  20. :play
  21. MATCHD
  22. QU QP /24H(P)lay by Play or (Q)uick Game?
  23. if errorlevel 2 goto fball
  24. CLS
  25. QUICK
  26. PAUSE
  27. copy gam15.sts gam.sts
  28. PSTAT
  29. goto logo
  30. :stats
  31. echo 
  32. echo 41H 
  33. echo 27HBackup Season Stats to-B [B]
  34. echo 27HSave Week's Games to  -B [S]
  35. echo 27HUse/See Game stats       [C]
  36. echo 27HStart New Season         [Z]
  37. echo 27HReturn to MAIN MENU      [R]
  38. QU BSCZR /27HSelect Option
  39. if errorlevel 5 goto LOGO
  40. if errorlevel 4 goto zero
  41. if errorlevel 3 goto change
  42. if errorlevel 2 goto weeks
  43. :league
  44. cls
  45. echo 20HSelect (N)FL or (R)BL Leauge
  46. QU NR /20HSelect Option
  47. if errorlevel 2 goto RBL
  48. :NFL
  49. copy NDV?.REC B:\NFL
  50. copy NV?.rec B:\NFL
  51. copy nfweek.dat B:\NFL
  52. goto logo
  53. :RBL
  54. copy DIV?.REC B:\RBL
  55. copy DV?.REC B:\RBL
  56. copy week.dat B:\RBL
  57. goto logo
  58. :weeks
  59. cls
  60. echo 
  61. echo 10HTYPE IN "set INPUT=WEEK##" (W/O"),then F6 AND Enter when finished
  62. copy inputset.txt+con number.bat>nul
  63. call number
  64. echo 10HBackup Game Stats for (N)FL or (R)BL League?
  65. QU NR /30HSelect Option
  66. if errorlevel 2 goto rbstat
  67. cls
  68. del gam17.sts
  69. del gam.sts
  70. Xcopy *.sts B:\NFL\%input%
  71. set input=
  72. del number.bat
  73. goto logo
  74. :zero
  75. cls
  76. QU RN /20HSelect (R)BL or (N)FL to zero out
  77. if errorlevel 2 goto NFL2
  78. FOR %%A IN (DIV1.REC,DIV2.REC,DIV3.REC,DIV4.REC) DO COPY RBL %%A
  79. FOR %%B IN (DV1.REC,DV2.REC,DV3.REC,DV4.REC) DO COPY RBR %%B
  80. COPY WEEK0.DAT WEEK.DAT
  81. goto logo
  82. :rbstat
  83. cls
  84. del gam17.sts
  85. del gam.sts
  86. Xcopy *.STS B:\RBL\%input%
  87. set input=
  88. del number.bat
  89. goto logo
  90. :NFL2
  91. FOR %%C IN (NDV1.REC,NDV2.REC,NDV3.REC,NDV4.REC,NDV5.REC,NDV6.REC) DO COPY NFL %%C
  92. FOR %%D IN (NV1.REC,NV2.REC,NV3.REC,NV4.REC,NV5.REC,NV6.REC) DO COPY NR %%D
  93. copy WEEK0.DAT NFWEEK.DAT
  94. goto logo
  95. :CHANGE
  96. echo 
  97. echo 41H 
  98. echo 27HReplace Game Stats       [R]
  99. echo 27HSee Stats of a Game      [S]
  100. echo 27HGame Stats of Past Weeks [P]
  101. echo 27HReturn to LAST MENU      [L]
  102. echo 27HReturn to MAIN MENU      [M]
  103. QU RSPLM /27HSelect Option
  104. if errorlevel 5 goto LOGO
  105. if errorlevel 4 goto STATS
  106. if errorlevel 3 goto PAST
  107. if errorlevel 2 goto SEE
  108. :REPLACE
  109. cls
  110. echo 
  111. echo 20HThis program requires a game number selection
  112. echo 20Htype in SET game=GAM##, then F6 & Enter
  113. echo 20H
  114. copy gameset.txt+con number.bat>nul
  115. call number
  116. copy %game%.sts gam.sts
  117. pstat
  118. echo 
  119. echo 20HYou have selected %game%. Is this OK?
  120. QU YN /20H Select (Y)es or (N)o
  121. if errorlevel 2 goto logo
  122. copy gam17.sts gam.sts
  123. pstat
  124. echo 
  125. cls
  126. echo 20HThe Game shown will now be %game%. Is this OK?
  127. QU YN /30H Select (Y)es or (N)o
  128. if errorlevel 2 goto logo
  129. copy gam17.sts %game%.sts
  130. set game=
  131. del number.bat
  132. goto logo
  133. :see
  134. cls
  135. echo 20HThis program requires a game number selection
  136. echo 20HType in SET game=GAM##,then F6 & Enter
  137. echo 20H
  138. copy gameset.txt+con number.bat>nul
  139. call number
  140. copy %game%.sts gam.sts
  141. pstat
  142. set game=
  143. del number.bat
  144. goto logo
  145. :past
  146. cls
  147. echo 20HThis program requires a game and week number selection
  148. echo 20HType in SET game=GAM##, then F6 & Enter
  149. echo 20H
  150. copy gameset.txt+con number.bat>nul
  151. echo 20HType in SET wek=week##, then F6 & Enter
  152. echo 20H
  153. copy wekset.txt+con week.bat>nul
  154. call number
  155. call week
  156. echo 20HSelect League: (N)FL or (R)BL
  157. QU NR /20HChoose N or R
  158. if errorlevel 2 goto RBL2
  159. :NFL2
  160. b:
  161. copy nfl\%wek%\%game%.sts c:\fb\gam.sts
  162. goto jump
  163. :RBL2
  164. b:
  165. copy rbl\%wek%\%game%.sts c:\fb\gam.sts
  166. :jump
  167. c:
  168. cd\fb
  169. pstat
  170. set game=
  171. set wek=
  172. del number.bat
  173. del week.bat
  174. goto logo
  175. :QUIT
  176. echo 
  177. cls
  178. cd\
  179.